home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / drdobbs / ddjcompr / hstest / src / memid.asm < prev    next >
Assembly Source File  |  1991-02-05  |  1KB  |  70 lines
  1.     NAME    memid
  2.  
  3. include tomlib.equ
  4.  
  5. ;-----------------------------------------------------
  6. ;   memid(near *dest,near *src)
  7. ;                               return number of equal bytes
  8. ;    {
  9. ;         register int loop;
  10. ;         for (loop = 0; *dest++ == *src++; loop++)
  11. ;             ;
  12. ;         return loop;
  13. ;     }
  14. ; 
  15. ; 
  16. ; 
  17. ;------------------------------------------------------
  18.   
  19. TEXTSEGMENT
  20.  
  21.     PUBPROC  _memid
  22. ;------------------------------------------------------------------------------
  23.  
  24.     mov        dx,di                ; protect DI && SI
  25.     mov        bx,si
  26.     mov        si,sp
  27.  
  28.     mov        ax,ds
  29.     mov        es,ax
  30.  
  31.     mov     di,(2+SPOFF)[si]
  32.     mov     si,(4+SPOFF)[si]
  33.     mov        cx,0ffffh
  34.     cld
  35.     repe cmpsb
  36.     mov        ax,-2
  37.     sub        ax,cx
  38.  
  39.     mov        di,dx
  40.     mov        si,bx
  41.     ret
  42. ;------------------------------------------------------------------------------
  43. _memid endp
  44.  
  45.     PUBPROC  @memid                ; registers in AX,BX
  46. ;------------------------------------------------------------------------------
  47.  
  48.     xchg    ax,si
  49.     xchg    bx,di                ; protect DI && SI
  50.  
  51.     mov        cx,ds
  52.     mov        es,cx
  53.  
  54.     mov        cx,0ffffh
  55.     cld
  56.     repe cmpsb
  57.  
  58.     xchg    ax,si
  59.     xchg    bx,di                ; unprotect DI && SI
  60.  
  61.     mov        ax,-2
  62.     sub        ax,cx
  63.  
  64.     ret
  65. ;------------------------------------------------------------------------------
  66. @memid endp
  67.  
  68. TEXTEND
  69.     end
  70.